home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 4.1.6.dxr / Internal_5_get name out hoofdstuk lijst.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  463 b   |  17 lines
  1. property spriteNum
  2. global hoofdstuk, vertaaldehoofdstuktitels, tekstkleur
  3.  
  4. on beginSprite me
  5.   sprite(spriteNum).visible = 0
  6.   if hoofdstuk <> VOID then
  7.     pos = hoofdstuk.getPos(sprite(spriteNum).member.name)
  8.     sprite(spriteNum).member.text = vertaaldehoofdstuktitels[pos]
  9.   end if
  10.   if tekstkleur = VOID then
  11.     sprite(spriteNum).member.foreColor = 235
  12.   else
  13.     sprite(spriteNum).member.foreColor = tekstkleur
  14.   end if
  15.   sprite(spriteNum).visible = 1
  16. end
  17.